home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / zrot.z / zrot
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. ZZZZRRRROOOOTTTT((((3333FFFF))))                                                              ZZZZRRRROOOOTTTT((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      ZROT - applie a plane rotation, where the cos (C) is real and the sin (S)
  10.      is complex, and the vectors CX and CY are complex
  11.  
  12. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  13.      SUBROUTINE ZROT( N, CX, INCX, CY, INCY, C, S )
  14.  
  15.          INTEGER      INCX, INCY, N
  16.  
  17.          DOUBLE       PRECISION C
  18.  
  19.          COMPLEX*16   S
  20.  
  21.          COMPLEX*16   CX( * ), CY( * )
  22.  
  23. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  24.      ZROT   applies a plane rotation, where the cos (C) is real and the sin
  25.      (S) is complex, and the vectors CX and CY are complex.
  26.  
  27.  
  28. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  29.      N       (input) INTEGER
  30.              The number of elements in the vectors CX and CY.
  31.  
  32.      CX      (input/output) COMPLEX*16 array, dimension (N)
  33.              On input, the vector X.  On output, CX is overwritten with C*X +
  34.              S*Y.
  35.  
  36.      INCX    (input) INTEGER
  37.              The increment between successive values of CY.  INCX <> 0.
  38.  
  39.      CY      (input/output) COMPLEX*16 array, dimension (N)
  40.              On input, the vector Y.  On output, CY is overwritten with
  41.              -CONJG(S)*X + C*Y.
  42.  
  43.      INCY    (input) INTEGER
  44.              The increment between successive values of CY.  INCX <> 0.
  45.  
  46.      C       (input) DOUBLE PRECISION
  47.              S       (input) COMPLEX*16 C and S define a rotation [  C
  48.              S  ] [ -conjg(S)   C  ] where C*C + S*CONJG(S) = 1.0.
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.